home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / asm / Tandem2.68.lha / Tandem / Teaching / 13.asm < prev    next >
Assembly Source File  |  2000-04-02  |  761b  |  15 lines
  1. * 13.asm   Shift and rotate        version 0.00    1.9.97
  2.  
  3.  move.l #$44442222,d0  ;LSR shifts right, zero fills
  4.  lsr.l #1,d0           ;(each shift=unsigned halve, CS if 1 falls out)
  5.  move.l #$44442222,d0  ;LSL shifts left, zero fills
  6.  lsl.l #1,d0           ;(each shift=unsigned double, CS if 1 falls out)
  7.  move.l #$FFFF4444,d0  ;ASR shifts right, fills w. leftmost digit
  8.  asr.l #8,d0           ;(each shift=signed halve, CS if 1 falls out)
  9.  move.l #$FFFF4444,d0  ;ASL same as LSL
  10.  asl.l #8,d0           ;(each shift=signed halve, CS if 1 falls out)
  11.  move.l #$12345678,d0  ;ROL shifts all to left, bit that falls out
  12.  rol.l #4,d0           ;pushed into other and and also to C flag
  13.  ror.l #4,d0           ;(ROL #4 rotates digits, since each digit=4 bits)
  14.  rts
  15.